home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2003 June / macformat-130.iso / mac / Reviewed⁄Demos / Spearhead Demo / demota / pak1.pk3 / global / crate.scr < prev    next >
Encoding:
Text File  |  2002-10-21  |  5.8 KB  |  249 lines
  1. //**************************************************************************
  2. //*** will setup all specified crates in the editor spawn items
  3. //*** syntax --------------------------------
  4. //*** item_crate
  5. //**************************************************************************
  6. item_crate:
  7.  
  8. if ($item_crate == NULL)
  9. {
  10.     println "^~^~^ No item crates in the level!!"
  11.     goto item_crate_end
  12. }
  13.  
  14. for (local.i = 1; local.i <= $item_crate.size ; local.i ++)
  15. {
  16.            $item_crate[local.i] thread item_crate_spawn local.i
  17. }
  18.  
  19. item_crate_end:
  20. end
  21.  
  22.  
  23. //**************************************************************************
  24. //*** thread to spawn the desired item per crate
  25. //*** syntax --------------------------------
  26. //*** <crate> item_crate_spawn <array index>
  27. //**************************************************************************
  28. item_crate_spawn local.index:
  29.  
  30. //*** find out what should be spawned
  31. switch (local.self.item)
  32. {
  33.     case "ammo_pistol":
  34.         local.item = "items/item_pistol_ammobox"
  35.         local.set_angle = "0 0 0"
  36.         break
  37.         
  38.     case "ammo_rifle":
  39.         local.item = "items/item_rifle_ammobox"
  40.         local.set_angle = "0 0 0"
  41.         break
  42.         
  43.     case "ammo_smg":
  44.         local.item = "items/item_smg_ammobox"
  45.         local.set_angle = "0 0 0"
  46.         break
  47.         
  48.     case "ammo_mg":
  49.         local.item = "items/item_mg_ammobox"
  50.         local.set_angle = "0 0 0"
  51.         break
  52.         
  53.     case "ammo_heavy":
  54.         local.item = "items/item_heavy_ammobox"
  55.         local.set_angle = "90 0 0"
  56.         break
  57.         
  58.     case "ammo_grenade":
  59.         local.item = "items/item_grenade_ammobox"
  60.         local.set_angle = "0 0 0"
  61.         break
  62.         
  63.     case "health_100":
  64.         local.item = "items/item_100_healthbox"
  65.         local.set_angle = "0 0 0"
  66.         break
  67.         
  68.     case "health_50":
  69.         local.item = "items/item_50_healthbox"
  70.         local.set_angle = "0 0 0"
  71.         break
  72.         
  73.     case "health_25":
  74.         local.item = "items/item_25_healthbox"
  75.         local.set_angle = "0 0 0"
  76.         break
  77.  
  78.     default:
  79.         local.item = NIL
  80.         local.set_angle = NIL
  81.         break
  82. }
  83.  
  84. //*** check if an item is desired
  85. if (local.item != NIL )
  86. {
  87.         //*** set temp variables
  88.         local.spawn_origin = local.self.origin
  89.         local.spawn_targetname = (local.self.targetname + "_item_" + local.index)
  90.         
  91.         //*** wait till the crate is destroyed
  92.         local.self waittill death
  93.  
  94.     //*** spawn the item
  95.         spawn local.item targetname local.spawn_targetname angles local.set_angle
  96.         local.spawn_targetname = $(local.self.targetname + "_item_" + local.index)
  97.         
  98.         //*** reset the items origin
  99.         local.spawn_targetname.angles = local.set_angle
  100.         local.spawn_targetname.origin = local.spawn_origin
  101. } 
  102.  
  103. end
  104.  
  105.  
  106. //**************************************************************************
  107. //*** will setup all specified crates in the editor for explosive crates
  108. //*** syntax --------------------------------
  109. //*** explosive_crate
  110. //**************************************************************************
  111. explosive_crate:
  112.  
  113. if ($explosive_crate == NULL)
  114. {
  115.     println "^~^~^ No explosive crates in the level!!"
  116.     goto explosive_crate_done
  117. }
  118.  
  119. for (local.i = 1; local.i <= $explosive_crate.size ; local.i ++)
  120. {
  121.            $explosive_crate[local.i] thread explosive_crate_spawn local.i
  122. }
  123.  
  124. explosive_crate_done:
  125. end
  126.  
  127.  
  128. //**************************************************************************
  129. //*** thread for the explosive crate
  130. //*** syntax --------------------------------
  131. //*** <crate> explosive_crate_spawn <array index>
  132. //**************************************************************************
  133. explosive_crate_spawn local.index:
  134.  
  135. //*** set temp variables
  136. local.spawn_origin = local.self.origin
  137. local.spawn_targetname = (local.self.targetname + "_explosive_" + local.index)
  138.  
  139. if (local.self.dmg != NIL)
  140. {
  141.     local.dmg = local.self.dmg
  142. }
  143. else
  144. {
  145.     local.dmg = 250
  146. }
  147.  
  148. if (local.self.radius != NIL)
  149. {
  150.     local.radius = local.self.radius
  151. }
  152. else
  153. {
  154.     local.radius = 256
  155. }
  156.  
  157. //*** wait till the crate is destroyed
  158. local.self waittill death
  159.  
  160. //*** spawn the item
  161. spawn "animate/fx_explosion_mine" targetname local.spawn_targetname angle "-1"
  162. local.spawn_targetname = $(local.self.targetname + "_explosive_" + local.index)
  163.  
  164. //*** reset the items origin
  165. local.spawn_targetname.origin = local.spawn_origin
  166.  
  167. local.spawn_targetname anim start
  168.  
  169. //*** damage the player  <origin> <damage> <radius> [consitent]
  170. radiusdamage local.spawn_targetname.origin local.dmg local.radius
  171.  
  172. //*** get the distance to the player
  173. local.distance = vector_length (local.self.origin - $player.origin)
  174. local.check_distance = (local.radius * 1.5)
  175. local.outter_distance = (local.radius * 2.5)
  176.  
  177. //*** shake his view
  178. if (local.distance <= local.check_distance)  //*** inner distance check
  179. {
  180.     if (local.dmg <= 150)
  181.         {
  182.             thread jitter_small
  183.         }
  184.     else
  185.     {
  186.         thread jitter_normal
  187.     }
  188. }
  189. else if (local.distance <= local.outter_distance)  //*** outter distance check
  190. {
  191.     if (local.dmg <= 150)
  192.         {
  193.             thread jitter_tiny
  194.         }
  195.     else
  196.     {
  197.         thread jitter_small
  198.     }
  199. }
  200.  
  201. wait (randomint 3 + 4)
  202.  
  203. //*** delete the effect out of the world now that it's done
  204. local.spawn_targetname remove
  205.  
  206. end
  207.  
  208.  
  209. //******************************
  210. // jitter effect
  211. // jitter_normal
  212. //******************************
  213. jitter_normal:
  214.  
  215. waitexec global/earthquake.scr .4 3 0 0
  216.  
  217. waitexec global/earthquake.scr .5 1 0 0
  218.  
  219. //waitexec global/earthquake.scr .5 1 0 0
  220.  
  221. end
  222.  
  223.  
  224. //*********************************
  225. // jitter effect
  226. // jitter_small
  227. //*********************************
  228. jitter_small:
  229.  
  230. waitexec global/earthquake.scr .3 1.5 0 0
  231.  
  232. waitexec global/earthquake.scr .35 .75 0 0
  233.  
  234. //waitexec global/earthquake.scr .5 1 0 0
  235.  
  236. end
  237.  
  238.  
  239. //*********************************
  240. // jitter effect
  241. // jitter_tiny
  242. //*********************************
  243. jitter_tiny:
  244.  
  245. waitexec global/earthquake.scr 1 .3 0 0
  246.  
  247. //waitexec global/earthquake.scr .5 1 0 0
  248.  
  249. end